home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasic_1.zip / BAS_LIST.EXE / FOREBACK.BAS < prev    next >
BASIC Source File  |  1992-05-01  |  400b  |  18 lines
  1. REM ** QBME0507.BAS
  2. ' TRY VARIOUS COMBINATIONS OF BACKGROUND AND FOREGROUND COLORS
  3.  
  4. CLS
  5. INPUT "Foreground color (0 to 31)"; foreground%
  6. PRINT
  7. INPUT "Background color (0 to 7) "; background%
  8.  
  9. COLOR foreground%, background%
  10.  
  11. DO
  12.   PRINT "The foreground number is "; foreground%
  13.   PRINT "The background number is "; background%
  14.   PRINT "Press SPACEBAR to stop"
  15. LOOP UNTIL INKEY$ = " "
  16.  
  17.  
  18.